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This paper proposes bimorphic recursion, which is restricted polymorphic recursion such that every 
recursive call in the body of a function definition has the same type. Bimorphic recursion allows us to 
assign two different types to a recursively defined function: one is for its recursive calls and the other 
is for its calls outside its definition. Bimorphic recursion in this paper can be nested. This paper shows 
bimorphic recursion has principal types and decidable type inference. Hence bimorphic recursion 
gives us flexible typing for recursion with decidable type inference. This paper also shows that its 
typability becomes undecidable because of nesting of recursions when one removes the instantiation 
property from the bimorphic recursion. 



1 Introduction 

The Hindley-Milner system, which is called the ML type system [4] and the core of the type systems 
of functional programming languages like SML, OCaml, and Haskell, is only able to infer types for 
monomorphic recursion, that is, recursive function definitions where all the occurrences of recursive 
calls have the same simple type of the function definition. The problem of inferring types for polymor- 
phic recursion, that is, recursive function definitions where different occurrences of recursive calls have 
different simple types that specialize the polymorphic type of the function definition |[T4llT7l . has been 
studied both by people working on type systems ||9l |T3l |2l [TT] [111 [191 El [HI and by people working on 
abstract interpretation |[T5l[T6l 161171. 

Type inference for polymorphic recursion was shown to be undecidable HI [131. Fortius reason, those 
programming languages do not use polymorphic types for recursive definitions. Haskell and OCaml 
allow polymorphic recursion only when we provide type annotation. On the other hand, a restricted 
form of polymorphic recursion could be useful for programming. It is important theoretically as well as 
practically to find some restriction such that it is enough flexible and its type inference is decidable. 

Henglein |[8l suggested that we have decidable type inference in some restricted polymorphic re- 
cursion. In this system, only one recursive call in the body of the function definition is allowed. In 
addition, recursive definitions must not be nested. We call this recursion the single polymorphic recur- 
sion. Type inference of the single polymorphic recursion is reduced to semi-unification problems with a 
single inequation, which are known to be decidable. 

Our contribution is proposing bimorphic recursion and proving that it has decidable type inference. 
Bimorphic recursion is an extension of the single polymorphic recursion. In bimorphic recursion, each 
recursive call in the body of the function definition must have the same type. Recursive definitions can 
be nested. "Bimorphic" means that a recursively defined function can have two different types: one is 
for recursive calls in the body of the definition, and another is for its calls of the function outside the 
body of the definition. This paper shows that the system with bimorphic recursion has principal types 
and decidable type inference. 

The idea for the type inference algorithm is based on an observation that for a given recursive defi- 
nition by bimorphic recursion, we can infer its principal type by typing only the body of its definition. 
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We do not have to think of types of calls of the function outside the body of its definition. By this 
idea, our algorithm first handles the innermost recursive definition and then goes to the second inner- 
most recursive definition and so on. According to the type inference algorithm in [8, 9], our bimorphic 
recursion produces semi-unification problems, which are undecidable in general. Our idea enables us to 
reduce these semi-unification problems to semi-unification problems with a single inequation, which are 
decidable |8|. This algorithm can also work with polymorphic types in the let constructor. The system 
with bimorphic recursion and the polymorphic let constructor has principal types and decidable type 
inference. 

Because of nesting of recursions, this idea is so subtle that it becomes unavailable even by a small 
change of a typing system. An example is the system with extended monomorphic recursions where 
every recursive call has the same type that is an instantiation of the type of the function definition. Since 
every recursive call has the same type as the type of the function definition in monomorphic recursion, 
the system is an extension of monomorphic recursion and can type more expressions. This system is also 
obtained from our bimorphic recursion type system by removing instantiation in the rule for recursion. 
The system types less expressions than our bimorphic recursion type system. Nonetheless the same idea 
does not work for its type inference, since the type of the function depends also on the types of its calls 
outside the body of its definition. Indeed this paper will show that its type inference is undecidable. This 
will be proved by reducing semi-unification problems to type inference. This reduction is obtained by 
refining the reduction of semi-unification problems to the type inference of polymorphic recursion given 
inil. 

About ten years ago, building on results by Cousot f3l, Gori and Levi fF, T| have developed a type 
abstract interpreter that is able to type all the ML typable recursive definitions and interesting examples of 
polymorphic recursion. As pointed out in [1], the problem of establishing whether Gori -Levi typability 
is decidable is open. Since our system is inspired by [1], our bimorphic recursion type system can help 
to solve it. 

Section 2 defines bimorphic recursion. Section 3 gives its type inference algorithm and shows bi- 
morphic recursion has principal types and decidable type inference. Section 4 discusses its extension to 
the polymorphic let constructor. Section 5 studies bimorphic recursion without instantiation and shows 
that its type inference is undecidable. Section 6 concludes. 

2 The system BR 

We will define the type system BR of bimorphic recursion. We assume variables x,y,z, and constants 
c, . . .. We have expressions e defined by 
e ::= ;t|c|AA;.e|ee|rec{:<: = e}. 

These consist of A -terms with constants and rec. The expression rec{;c = e} means the recursively 
defined function x by the equation x = e where e may contain recursive calls of x. We will write e[x:=ei] 
for the expression obtained from e by capture-avoiding substitution of e\ for x. 

We assume type variables a, j8, . . .. We have types u,v,w defined by 

u,v,w ::= a|bool[int|M — )• m|m x u\u list. 

These consist of type variables, and the types of booleans, integers, functions, cartesian products, 
and lists. 

We will write FV(e) for the set of free variables in e and FTV(m) for the set of free type variables in 

u. 

A substitution s is defined as a function from type variables to types such that {a\s{a) 7^ a} is 
finite. We will write Dom(5') = {a\s{a) 7^ a}. We extend s to types by defining s{u) by s(bool)=bool. 
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U,x:u\-x:u U \- c : s{u) (type(c) = M) 

U,x:u\-e:v U\-ei:v^u U'rej-.v , 

771 — T l^^j 771 \^^) 

U \- Ax.e:u^v U\-eie2:u ^ ' 

U ,x : s\{u)\- e : u 

U h XQc{x = e} : S2{u) ^ ' (Dom(5i),Dom(52) C FTV(m) - FTV([/)) 



Figure 1: System BR 



s(int)=int, s(u^v) = s{u) -^s{v), s{u x v) = s{u) x s{v), and s{u list) = s{u) list. We will use s,r for 
substitutions. We will write u[a := v] for the type obtained from u by replacing a by v. 

A type environment U is the set {x\ : u\,...,Xn : m„} where m; = Uj for Xi = Xj. We will write 
FTV([/) = FTV(mi) U . . . UFTV(m„) and Dom(?7) = {x\,. . . We will use U for type environments. 

A judgment is of the form U \- e:u. We will write xi : mi , . . . ,x„ : m„ h e : m when U {x\: u\, . . . ,x„ : 
Un}- We will write U,x : u \- e : v for U U {x : u} \- e : v. 

We assume each constant c is given its type denoted by type(c). 

The system has the inference rules given in Figure [T] 

These rules form an extension of the simply typed A-calculus with the rules {con) and {rec). By the 
rule (con), the constant c has the type s{u) which is an instantiation s{u) of the given type u. By the 
rule {rec), for the recursively defined function x with its definition x = e, we can use some general type 
u to type the function. First we have to show the body e of its definition has this type u by assuming 
each recursive call of x in e has the unique type {u) which is obtained from u by instantiation with a 
substitution si. Then we can say the defined function x has the type S2{u) which is another instantiation 
of the type u. The side condition guarantees that and S2 change only type variables that do not occur 
inU. 

An expression e is defined to be typable if h e : m is provable for some type u. A type u is defined to 
be a principal type for a term e when (1) h e : m is provable, and (2) if h g : m' is provable, then there is 
some substitution s such that s{u) = u' . 

Theorem 2.1 There is a type inference algorithm for the type system BR. That is, there is an algorithm 
such that for a given term it returns its principal type if the term is typable, and it fails if the term is not 
typable. 

We will prove this theorem in the next section. This theorem can be extended to a system with 
polymorphic let in Section 4. 

We will write m — > v ^ w for m — )• (v — )• w). We assume the constants pair, fst, snd, nil, cons, 
hd, tl, null, 0,1,2, and ifc with type(pair) = a\ ^ a2 ^ {(X\ x a2), type(fst) = (ai x a2) oci, 
type(snd) = (ai x a2) a2, type(nil) = a hst, type(cons) = a — > a list — )■ a hst, type(hd) = a list — > 
a, type(tl) = a hst a list, type(null) = a list — )• bool, type(O) = type(l) = type(2) = int, and 
type (ifc) = bool —)•«—>«—)•«. They are the pair, the first projection, the second projection, the 
empty list, the list construction, the head function for lists, the tail function for lists, the null function 
for the empty list, three integers, and the if-then-else statement respectively. We will use the following 
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abbreviations. 

[ei.e2\ = cons eie2, 
[]=nil, 

[ei,e2,...,e„] = [ei.[e2- •■•[«„•[]].. •]], 
if ei then 62 else = ifc eie2^3, 

We will explain bimorphic recursion by examples. 
Example 2.2 This example is a list doubling function by using a dispatcher. 

DB = Ax.(DB2 {?iy.y))x, 

DB2 = rec{/2 = Azw.if (null w) then z[ ] 

else f2{?ixy.z{yx)){tl w)(Ax.[(hd w).[(hd w).x]])}. 

According to informal meaning, we have DB [0, 1,2] = [0,0, 1, 1,2,2] and (DB2 d)l = d(DB I) where 
d is a dispatcher that takes the value x and several continuations /i ,...,/„ as its arguments and returns 
/„(. . . (fix) . . .). The exact meaning is given by the following Haskell program. 

db X = (db2 (\y -> y)) x 

db2 : : ( [b] -> a) -> [b] -> a 

db2 z w = if (null w) then z [] 

else db2 (\x y -> z (y x)) (tail w) (\x -> (head w) : (head w):x) 

The term DB2 is not typable in ML since monomorphic recursion is not sufficient for typing it. This 
is typable in BR in the following way. Let 

62 = Azw.if (null w) then z[ ] else /2(Axy.z(yx))(tl w)(Ax.[(hd w).[(hd w).x]]). 

We have 

/2 : (j8 list (j8 hst -> j8 list) ^> a) -)■ j3 Ust -)■ (j3 list -)■ j3 Ust) a 
I- ^2 : (jS hst a) j3 hst a. 

Hence by {rec) with si (a) = (j3 hst j3 hst) — > a and ^2(01) = j3 hst, we have 

h DB2 : (j3 hst ^ /3 hst) ^ /3 hst ^ /3 list 

and then we also have 

h DB : j3 hst ^ j3 hst. 

Example 2.3 The following is an example for nesting of bimorphic recursions. This is obtained from 
DB2 in the previous example by adding some constant dummy task and writing them by mutual recur- 
sion. Let 

^0 = [0,1,2], 

= Azw.if (null w) then (Ax.z[ ])(/4(Ax.x)eo) 

else M?ixy.z{yx)){tl w)(Ax.[(hd w).[(hd w).x]]). 

We want to define functions by the following mutual recursion. 

DB3 = e3[/3:=DB3,/4:=DB4], 
DB4 = DB3. 
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The functions DB3 and DB4 behave in the same way as DB2 except that the additional task f4{Xx.x)eo 
calculates the doubled list of the fixed list eo, and its resulting value is thrown away. We can actually 
define these functions by using nests of bimorphic recursions as follows: 

DB4 = rec{/4=rec{/3=£'3}}, 
DB3 = rec{/3=e3[/4:=DB4]}. 

Since the body of each recursion has only one recursive call, they are bimorphic recursion. This kind of 
patterns cannot simulate full polymorphic recursion because of the variable side condition. 

Note that the following DBS' does not work, since the recursive call occurs twice with different 
types in the body and it is not bimorphic recursion. 

DB3' = rec{/3 = e3[/4:=/3]}. 

We also note that the following DB3" does not work, since the recursive call occurs twice with 
different types in the body and it is not bimorphic recursion. 

DB3" = rec{/3 = g3[/4 := rec{/4 = /3}]}. 

We can type DB3 and DB4 in our system in the following way. We have 

/4 : (int list — > int list) int list int list, 

/3 : (jS hst -> (j3 hst -> j3 hst) ^ a) ^ j3 list -)■ (j3 list -)■ j3 list) a 
h ^3 : (j3 hst a) -)• j3 hst a. 

By (rec) rule, we have 

/4 : (int list int Ust) int list int list 

h rec{/3 = £3} : (i3 list ^ j3 Ust) (j3 Ust j3 list). 

By (rec), we have 

h DB4 : (int list int Ust) int Ust int Ust. 

We also have 

/3 : (J3 Ust (j3 Ust J3 Ust) -)■ a) J3 Ust -)■ (j3 Ust J3 Ust) a 
h e3[/4 := DB4] : (j3 Ust ^ a) -> J3 Ust ^ a 

and by (rec) we have 

h DB3 : (j3 Ust ^ j3 Ust) ^ j3 Ust ^ j3 Ust. 

3 Type Inference Algorithm 

This section gives our type inference algorithm for bimorphic recursion, and proves its correctness. 

A principal typing is defined as a judgment U \- e : u when (I) U \- e : u is provable, and (2) if 
U' \- e : u' is provable, then there is some substitution s such that s{U) = U' and s{u) = u'. 

Given types u,v, we write w = v to mean u is v. We write m < v to mean there is some sub- 
stitution s such that s{u) = v. A unification problem is defined as a set of equations of the form 
u = V. We say a substitution 5 is a unifier of the unification problem {mi } when 

s{ui) = s{u[),. . .,s{u„) = s{u'„) hold. A semi-unification problem is defined as a set of equations of the 
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forms u = v and inequations of the form u<v. We say a substitution is a semiunifier of the semiunifica- 
tion problem {ui = u[, . . . ,u„ = u'^,vi <v[,...,Vm< v'^} when s{ui) = s{u[),. . .,s{un) = s{u'^),s{vi) < 
s{v[),. . . ,s{vm) < ■5'(v'„) hold. A typing problem is defined as the judgment xi : u\, . . . ,Xn'- Un\~ e : u. We 
say a substitution 5 is a solution of the typing problem \- e '. u when x\ : s{ui), . . . ,Xn : 

s{u„) h e : s{u) is provable. 

We will write s{U) for {xi : s{ui),. . . ,x„ : s{Uf,)} when U is {xi : ui, . . . ,x„ : u„}. We will use vector 
notation u for a sequence mi , . . . , m„. We will sometimes denote the set {mi , . . . , m,,} by m. 

When we take Henglein's algorithm ||8] |9l for our system, we have the following algorithm E' that 
produces a semi-unification problem from a given judgment such that E'{U \- e :u) = Eq and 5 is a most 
general unifier of Eq if and only if s{U) h e : s{u) is a principal typing. 

E'{U,x : u\- x:v) = {u = v}, 

E'{U \- x: u) = {bool = int} where x ^ Dom(?7), 

E'(U \- c : u) = {u = v} where type(c) = v, 

E'{U h Xx.ei : u) = E'{U,x : a h ei : [5)U {a ^ p = u} where 

a,j8 fresh type variables, 
E'{Uh 6162 : u) =E'{U^6i : a-^u)UE'{U h 62 : a) where 

a a fresh type variable, 
E'{U h rec{x = 61} : u) = EiU {a x u < P x u,a x u < u x u} 

where a,j8 fresh type variables, 

U = {xi ■.ui,...,x„: u,,}, 

U = Ui X . . . X Un, 

E'{U,x: 15^61 : a) =Ei. 

Note that the type inference for the rec construct produces inequations. 

This does not give a decidable type inference for our system, since it may produce a semi-unification 
problem with two or more inequations. For example, when we apply it to the function DB4 in Example 
I2.3[ we have four inequations in E'{\- DB4 : a). By some property of the semi-unification problem, we 
can eliminate two inequations. Then the semi-unification problem becomes 

{«! <j8i,a2xj3i <j32Xj8i}U£o 

where Eq is some set of equations. In general, semi-unification problems with two inequations are 
undecidable [8 |. Our key idea is that for bimorphic recursion, we can always divide the semi-unification 
problem {ai < j8i,a2 x jSi < x j8i } U £"0 into two problems {ai < j8i} U^i and {a2 x j8i < j32 x 
j8i} □£'2 where Ei and E2 are some sets of equations such that in order to solve {ai < j8i, a2 x jSi < 
J82 X j8i} U^o it is sufficient to first solve {a2 x j3i < j32 x j3i } U £2 and then solve {ai < jSi} U^i. This 
idea reduces those semi-unification problems into semi-unification problems with a single inequation 
and gives an algorithm of solving them, since semi-unification problems with a single inequation are 
decidable L8J. 

This idea is based on the observation that bimorphic recursion can be typed locally. We explain this 
observation. We first tried to find an algorithm like E' which behaves as follows: in the same way as type 
inference algorithms for simply typed lambda calculus, when a term e, a type u, and a type environment 
U are given, the algorithm chases the proof of U \- 6 : u upward from the conclusion, and produces a 
set of equations between types such that the existence of its unifier s is equivalent to the provability of 
s{U) h 6 : s{u). Then we had difficulty for the (rec) rule. 
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The idea is that we follow the above algorithm but we handle the {rec) rule in a separate way. First 
we choose an uppermost (rec) rule in the proof: 

: ni 

U,x : si{u) \- e : u 

(rec) 

U h rec{x = e} : S2{u) 

: ^2 

Let V be FTV(m) — FTY{U). We will use to denote the subproof with the (rec) rule and Tii. The 
subproof 712 cannot access V because ^2 hides V and U does not have any information of V. Hence type 
inference for 713 can be done separately from 712- Since 713 has only one (rec) rule, the type inference 
for 713 is reduced to a semi-unification problem with a single inequation. Hence type inference for 713 is 
possible since there is an algorithm solving a semi-unification problem with a single inequation. By this, 
we will have a most general semiunifier s and a principal type v of rec{;c = e}. Then our type inference 
is reduced to type inference of the proof 714: 

— — — ^ -— (axiom) 

s{U) h rec{x = e} :si{v) ^ ' 

: s{K2) 

for some s\ where 5(712) denotes the proof obtained from 712 by replacing every judgment e\ : u\ 
by s{U\) h ei : s{ui) and the rule {axiom) denotes a temporary axiom. Since this reduction eliminates 
one (rec) rule, by repeating this reduction, we can reduce our type inference problem to type inference 
problem for some term without the (rec) rule. Hence we can complete type inference by solving it with 
the type inference algorithm for the simply typed lambda calculus. 

We will write FTV(ai ,...,«„) for FTV(ai ) U . . . U FTV(a„) when a,- is a type or a type environment. 
We define FTV({mi = u\, . . . ,u„ = m',}) as FTV(mi,Mj , . . . ,u„,u'^). 

For a substitution s, a type variable a, and a type u, the substitution s[a := u] is defined by s[a := 
u\{a) = u, and s[a := u]{^) = s{^) if j8 / a. 

For a substitution s and a set V of type variables, the substitution s\v is defined by s\v{a) = s{a) if 
a G V and s\v{a) = a if a . 

For substitutions si,S2, the substitution s\S2 is defined by 5'i5'2(o;) = s\{s2{(X)). 

For substitutions ^'i ,^2 and a set V of type variables, s\ =y S2 is defined to hold if s\ (a) = S2{oi) for 
a G V. We will say ^'i = S2 for V when s\ =y S2- 

We will write 1 for the identity substitution, that is, 1(a) = a. 

For a semiunification problem S, we say s is a most general semiunifier of S when 5 is a semiunifier 
of S and for every semiunifier r of 5 there is a substitution r' such that r's = r. 

We will write mgu for the algorithm that returns a most general semiunifier for a semiunification 
problem with a single inequation, that is, mgu({Mi = m^, . . . ,m„ = mJ,,v < v'}) = 5 if 5 is a most general 
semiunifier of the semiunification problem {u\ = u\, . . . ,Un = u'„,v < v'}, and mgu({Mi = u\, . . . ,u„ = 
u'niV < v'}) = fail if no semiunifier exists for the semiunification problem {u\ <v'}. 
We assume mgu uses fresh variables. 

Definition 3.1 (Type Inference Algorithm) In Figure |2j we define an algorithm E that takes a typing 
problem as its input and returns a pair of a unification problem and a substitution as its outputs. That is, 
E{U \- e :u) = {Eo,sq) where Eq is a unification problem. The algorithm E assumes fresh variables. Fresh 
variables are maintained globally and E{U \- e : u) may return an answer with different fresh variables 
depending on its global context. 
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E{U,x : u\- X :v) = {{u = v}, 1), 

E{U\-x: u) = ({bool = int}, 1) where x ^ Dom(J7), 

E{1] h c : m) = ({m = v}, 1) where type(c) = v, 

E^U h Ax.ei : u) = (£"1 U{5i(a— )-j3) =ji(m)},ji) where 

a,/3 fresh type variables, 

E{]J,x:a^ex : p) = {Ei,si), 
E{JJ h 61^2 : m) = (52(£'i) U£'2,'y2'yi) where 

a a fresh type variable, 

E{U \- ei: a^u) = {E\,s\), 

E{si{U)^ 62-. Si{a)) = {E2,S2), 

E {JJ \- rQc{x = e\} : u) = {{s2S\{u) = S2Si{a)},S2Si) where 
a,jS fresh type variables, 
E{U,x: l5\-ei : a) = (£"1,51), 
f/ = {xi : Mi,...,;c„ : m„}, 

M = Ml X . . . X M„, 

52 = mgu(£'i U {5'i(a X m) < 5'i(j3 X u)}), 
E{U h rec{;c = ei} : u) = ({bool = int}, 1) where 
a,j3 fresh type variables, 
E{U,x:l5\-ei:a) = {Eusi), 
U = {xi:uu---,x„: 

U = Ul X .. . X Ufi, 

mgu(£i U {5'i(a X m) < 5'i(j8 X u)}) = fail. 



Figure 2: Type Inference Algorithm 

When E{U \- e : u) = {Eq,sq), the typing problem J7 h e : m is reduced to the unification problem £"0- 
The substitution .vo gives a partial solution of the typing problem, that is, with a unifier s of Eq, the typing 
problem U \- e -.u has a solution ssq. 

Proposition 3.2 IfU\-e:uis provable, then s{U) h e : s{u) is provable for any s. 

Proof. By induction on the proof. We consider cases according to the last rule. 
Case (var). Suppose U.x : u\- x: u. We have s{U),x : s{u) h x : s{u). 
Case (con). Suppose U i- c : si{u). We have s{U) h c : ssi{u). 
Case (—>/). Suppose 

?7,x :u\- e:v 
U h Ax.e : M — >■ V 

By IH, we have s{U),x : s{u) h e : ^'(v). Hence we have the claim. 
Case (— s-i") is similar to Case (—>/). 
Case {rec). Suppose 

U,x : si(u)\- e : u 
U h rec{x = e} : S2{u) 
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Let a be FTV(m) — FTY{U). We can assume a are fresh. Hence we have Dom(5) n a = s{U) Ha = (j). 

Let ^1 = and s'2 = (^i'l)!^- We have ssi{u) = s\s{u) since ssi{ai) = ^'1(0^-) = ^'1^(0:;) and 

ssi{p) = s{p) = s[s{p) for j8 G FTV(C/). Similarly we have ss2{u) = ^^(m). 

By IH, we have s{U),x : ssi{u) h e : s{u). Hence we have s{U),x : s[s{u) h e : s{u). We have 
Dom(5'i) C FTY{s{u)) - VTY{s{U)) since Dom(5'i) C a holds and a,- € FTV(.v(m)) and a,- VYY{s{U)) 
show a C FTV(5(m)) -FTV(5(i7)). Similarly we have Dom(4) C FTV(j(m)) -FTY{s{U)). By the 
rule (rec), we have ^(i/) h rec{;c = e} : 52'5'(m)- Hence we have the claim. □ 

We define j({ai,...,c^}) as {s{ai),...,s{a„)}. 

Theorem 3.3 If the typing problem U\- e:u has a solution s,V isa finite set of type variables, FTV(U ) U 
FTV{u) C V, and E(U \- e :u) = {Eo,so), then there is a unifier s'q ofEo such that s'qSq =v s. 

Proof. By induction on e. We consider cases according to e. 

Case e = x. We can suppose U is Ui,x : v. We have s{v) = s{u) and {Eo,so) = ({v = u}, 1). We can 
take ^0 = 

Case e = c. Let type(c) = v. We have si{v) = s{u) for some ^i. We can assume FTV(v) is fresh. 
Then we have FTV(v) DV = (j). We have {Eo,so) = {{u = v}, 1). We can define s'q by 5o(o:) = s{a) for 
a eV and SQ{a) = si{a) for a G FTV(v). Sq is a unifier of £0 since Sq{v) = si{v) and s'q{u) = s{u). 
SqSo =v s since .v[) =y .v. 

Case e = Xx.e\. We suppose s{U),x : vi h ei : V2 and vi — > V2 = s{u). Let 7= s[a := vi,j8 := V2]. 
The typing problem JJ,x : a\- e\: has a solution J. Let Vi = y U {01, j3}. By induction hypothesis for 
e\ with Vi, there is a unifier s\ of £■] such that ^'j^i =Vj ?! We can take s'q = s[. Sq is a unifier of Eq since 
is a unifier of Ei, and /j^i = 5 for a,j8,M. ^'q^'o =y s since ^j^i = J'= s for V. 

Case e = eie2. We suppose >y(i7) I- ei : v^s{u) and s{U) \- e2 :v. Let 5'= ^[a := v]. The typing 
problem U \- ei : a ^u has a solution Let Vi = VU {a}. By induction hypothesis for ei with Vi, 
we have a unifier 5'j of Ei such that ^j^i =Vj We have J^J/) h ^2 : ?(«). Hence the typing problem 
si{U) \- €2 : si{a) has a solution s\. Let V2 = si (Vi) UFTV(£'i). By induction hypothesis for 62 with V2, 
E2 has a unifier S2 and i'j-^'i =V2 -^i- We can take 5q = s'2. s'q is a unifier of Eq since ^2 is a unifier of 
and s'2S2 is a unifier of Ei by 52'S2 = s'^ for FTV(£'i). ^g^o =v s since 5 = S'= s'^si = s'2S2Si for y. 

Case e = rec{x = e\}. We suppose s{U),x : r\ (v) \- e\:v and .v(m) = r2(v) where Dom(ri),Dom(r2) C 
FTV(v) -FTV(.v(i7)). We can assume FTV(v) - FTV(5(i7)) is fresh and (FTV(v) - FTV(.s(i7))) n 
FTV(5(V)) = Hence we have ris =y s and r2S =v s. Let J= s[a := v,j3 := n(v)]. We have 's{U),x : 
?'(j3) h e : J{a). Hence the typing problem JJ^x : j3 h e : a has a solution J. Let Vi be y U {a,j3}. 
By induction hypothesis for ei with Vi, we have a unifier jj of £1 such that s'^si s^. Then s'^ is 
a semiunifier of E\ U {5'i(oi xu) < s\{^ x u)}, since ri5j5i(a x i?) = i'j'^ili^ x u), which is proved as 
follows: ri5j5i(a) = s'^si{^) since s'-^s\ = J for a,j3. ris'-^si{u) = s'iS\{u) since /i>s'i(m) = ^{u) = s{U) 
and r\s{u) = s{u). 

Since .V2 is a most general semiunifier, we have s'2 such that s'2S2 = s'^. We can take s'q = r2s'2. 
s'qS2Si{u) = s'QS2Si{a) since ri^^'i^^i = r2s'iS\ = r2s'for a and FTV(m), r2s'{u) = r2s{u) = s{u), and 

r2s{a) = r2(v) = s{u). s'qSq =y 5' since r2s'2S2S{ = r2s'^Si =y r2S'=y r2S =y 5'. □ 

Theorem 3.4 If E{U h e : u) = {Eq,so) and s is a unifier of Eq, then ssq is a solution of the typing 
problem U \- e:u. 

Proof. By induction on e. We consider cases according to e. 

Case e=x. Since {bool = int} does not have any unifier, we have x G Dom(?7). We suppose U is 
U\,x : u. We have {Eq,sq) = {{u = v}, 1) and s{u) = s{v). By the rule (var), we have s{Ui),x : s{u) \-x: 
s{v) and ssq is a solution. 
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Case e = c. We suppose type(c) = v. We have {Eo,so) = {{u = v}, 1) and s{u) = s{v). By the rule 
(con), we have s{U) h c : s{u) and ssq is a solution. 

Case e = Xx.e\. Since 5' is a unifier of E\, by induction hypothesis for e\, ss\ is a solution of the 
typing problem IJ : a h : j3. Hence ss\{JJ^^x : 551(a) h e\ : 55i(j8). By the rule (—>/), we have 
55i(?7) h : 55i(a j8). Since 5 is a unifier of {s\{a^^') = si{u)}, we have ss\{a^^) = ssi{u). 
Hence we have ssy{U)\- e : ss\ (u). Therefore ssq is a solution of the typing problem U \- e : u. 

Case e = e\e2- Since 5 is a unifier of £"2, by induction hypothesis for ^2, ssj is a solution of the 
typing problem s\(lJ) h : s\{a). Then ss2S\{U) h ^2 : ss2S\{a). Since 552 is a unifier of E\, by 
induction hypothesis for e\, ss2S\ is a solution of the typing problem U h e\ : a^u. Then ss2S\{U) h 
ei : 552'5'i(o;) ss2S\{u). By the rule (— ^-f), we have ss2S\{U) h ^1^2 : ss2S\{u). Therefore ssq is a 
solution of the typing problem U \- e :u. 

Case e = rec{x = e\]. Since {bool = int} does not have any unifier, we have ^2 = mgu(£'i U {^i (a x 
m) < ■5i(j8 X m)}). Since S2 is a unifier of £1 , by induction hypothesis for ey, we have S2S\{U),x : S2S1 (j8) h 
^1 : S2S\{a). Since 52'5'i(« x m) < S2S\{fi x m) holds, we have 53 such that 5352'5'i(o5 xu) = S2S\{p x m). 
We can suppose Dom(5'3) C FTV{s2Si{a)). Then we have S3S2Si{a) = S2Si{l5) and sjS2S\{u) = S2Si{u). 
Hence we have S2S\{U),x : 53^2^1 («) h : 52'5'i(«) and Dom(53) C FTY{s2Si{a)) — FTY{s2Si{U)). By 
the rule (rec), we have 52'5'i(f/) l~ recj^; = ^i} : S2S\{a). By Proposition 13.21 we have ss2Si{U) h e : 
ss2Si{a). Since 5 is a unifier of {s2Si{u) = S2Si{a)}, we have ss2Si{u) = ss2Si{a). Then 552'^i(^^) l~ ^ • 
552^1 (m)- Hence ssq is a solution of the typing problem U \- e. O 

Proof of Theorem 12.11 We define the algorithm as follows. Suppose e is given. We will provide its 
principal type if e has a type and return the fail if e does not have any type. Let a be a fresh type variable. 
Let £■(!- e : a) = {Eo,so). If Eq does not have any unifier, we return the fail. Otherwise let be a most 
general unifier of £"0- Let uhe siSo{a). We return u. 

We will show that if the algorithm fails then e does not has any type. We assume the algorithm fails 
and \- e :v. We will show a contradiction. We define r by r{a) = v. Then r is a solution of the typing 
problem h e : a. By Theorem [33] for \- e : a and r, we have a unifier r' of Eq. Hence the algorithm does 
not fail, which leads to a contradiction. 

We will show that if the algorithm returns a type then it is a principal type. Suppose the algorithm 
returns u. We will show m is a principal type of e. First we will show h e : m. By Theorem |3.4| for {Eq^sq) 
and si, siso is a solution of the typing problem \- e : a. Hence \- e : siSo{a) and \- e : u. Next we will 
show h e : V implies u <v. We define r by r{a) = v. Then r is a solution of the typing problem \- e : a. 
By Theorem l3.3l for \- e : a and r with V = {a}, we have a unifier r' of £0 such that r'^o =v f. Since is 
a most general unifier of Eq, we have S2S\ = r' for some S2. We have S2{u) = v since S2{u) = S2SiSo{a) = 
r'so{a) = r{a) = V. □ 

4 Bimorphic Recursion and Polymorphic Let 

The system BR of bimorphic recursion can be extended with the standard polymorphic let construc- 
tor. The resulting system also has principal types and decidable type inference. We will discuss this 
extension. 

We wiU define the type system BR+let. 

The types in BR will be called mono types. Mono types u,v,w are. defined by 
M,v,w ::= a|bool[int|M — )• m|m x u\u list. 

Type types in BR+let include polymorphic types. Types A,S,C are defined by 
A,B,C ::= M|Va.A. 

A type environment U is the set {xi : Ai , . . . ,x„ : A„} where A,- = Ay for x, = xj. 
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A judgment is of the form U \- e : u. 

A mono type substitution s is a function from type variables to mono types such that {a\s{a) a} 
is finite. 

The inference rules are those in BR except that the rule (var) is replaced by the following (var — P), 
a mono type substitution is used instead of a substitution in the rule (rec), and the following rule (let) is 
added. 

(var — P) 

U,x:"ia]_...a„.u^x:s{u) (Dom(5) C {aj, . . . ,«„}) 

U\-e\:v U ,x -.yai . . . a„.v \- ej '■ u 

U hletx = eime2:u ^ ^^\ai, . . . , a„ G FTV(v) -FTV([/)) 



Theorem 4.1 There is a type inference algorithm for the type system BR+let. That is, there is an algo- 
rithm such that for a given term it returns its principal type if the term is typable, and it returns the fail 
if the term is not typable. 

This is proved by extending the type inference procedure E for BR in Section 3 to BR+let by replac- 
ing the variable case by 

E{U,x : \/a.u\-x : v) = {{u[a := j8] = v}, 1) where 
P fresh type variables , 

and adding the following let cases: 

E{U h let;c = ei in e2 '■ u) = {E2,st,S2Si) where 
a a fresh type variable, 
E{Uher.a) = {Ey,si), 
mgu(£i) =S2, 

p=FTY{s2Si{a))-FTY{s2Si{U)), 

E{s2S\{U),x : Vj3.S2^i(a) ^ e2 : S2S\{u)) = (£2,^3), 
E{U h let ;c = ei in e2'-u) = ({bool = int}, 1) where 
a a fresh type variable, 
E{U^er.a) = {EuSi), 
mgu(£'i) = fail. 

5 Bimorphic Recursion with No Instantiation 

This section discusses the type system BRNI which is obtained from the type system BR by removing 
the instantiation property. We will show the type inference for BRNI is undecidable by reducing semi- 
unification problems to it. 

Semiunification terms M,N aie defined by M,N ::= a\M xM where a is a type variable. Note that 
a semiunification term is a type of BR. 

The following fact is well known for semi-unification problems. 

Theorem 5.1 ((Sj) The existence of a semiunifier of the set of two inequations is undecidable. That is, 
there is no algorithm that decides if there is some s such that s\ {s{M\)) = s{N\) and S2{s{M2)) = s{N2) 
for some si,S2for a given semiunification problem {Mi < Ni,M2 < 
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We define the type system BRNI for bimorphic recursion with no instantiation. 

Definition 5.2 The system BRNI is defined as the type system obtained from the system BR by replacing 
the rule {rec) by the rule {recni) : 

U^x \ s\{u)\- e : u 

Uhvec{x = e} -.u ^ ' (Dom(5i) C FTV(m) - FTV([/)) 

This system is an extension of monomorphic recursions where every recursive call has the same type 
that is an instantiation of the type of the function definition. Since every recursive call has the same 
type as the type of the function definition in monomorphic recursion, the system BRNI can type more 
expressions than monomorphic recursion. For example, the function DB2 in Example 12. 21 can be typed 
with h DB2 : (j8 list a) ^ [5 hst a in this system. 

The difference between (rec) and {recni) is that {rec) has ^2 but {recni) does not have ^2. By {recni), 
the type of a recursively defined function is always its general type. For this reason. The system types 
less expressions than our system BR. For example, the function DB in Example 12.21 cannot be typed 
because we have to instantiate a by (jS list) in the type of DB2 in order to type DB. For the same reason, 
the system BRNI does not have the instantiation property described by Proposition 13.21 

We define 

(ei,e2) =pair ^1^2, 
e.l = fst e, 
e.2 = snd e, 
K = Xxy.x^ 

{e\ =e2) = Xy.{yei,ye2) {y ^Viy{eie2)) 

We suppose variables z\,Z2t ■■ are chosen for type variables a\,a2, M is defined by a,- = zt and 

Ml X M2 = (Mi,M2). 

Note that when e\ = e2 is typable, the expressions e\ and e2 have the same type. The principal type 
of M is M. When M = N is typable, we can unify M and N. 

Lemma 5.3 (l)z:u\-M: s{M) where s{ai) = 

(2) If U \- e '. u, U \- e :v, and e is defined by e ::= x\?ix.e\ee\{e,e)\e.l\e.2, then u = v. 

Proof. (1) By induction on M. 
(2) By induction on e. □ 

Lemma 5.4 Let a = FTV{Mi,M2,M3,M4) and z = cc. Let 

ei = rec{f = XtK{M,,M2){Xy.{fy.\ =Nj))}, 
e2 = rec{f = UK{M,,M2){Xy.{fy.2 = N2))}, 

where y are fresh variables of the same length as z- The judgment \- e\ = e2'- u is provable in BRNI for 
some u if and only if the semiunification problem {M\ < Ni,M2 <N2} has a semiunifier 

We explain proof ideas. Since K is the constant function combinator, both ei and e2 are equal to 
Az.(Mi,M2). By e\ = e2, the expressions e\ and e2 have the same type. Since / is a recursive call, the 
type of / in the body of the recursive definition in e\ is some instantiation of the type of e\. Hence the 
type of fy.l is some instantiation of the type of Mi. Since fy.l = N\, the expressions fy.\ and A^^i is the 
same type, and therefore the type of Ni is some instantiation of the type of M\ . For a similar reason, the 
type of A'^2 is some instantiation of the type of M2. 
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Proof. Let _ _ _ 

e3=K{My,M2){^y-{fy-^=Ni)), 
e4=K{My,M2){Xy.{fy.2=N2)). 

From the left-hand side to the right-hand side. We suppose 1-^1=^2: uq. Then we have \- ei : u and 
\-e2-u for some u. 

We have / : (m) h Xz-es : u for some si. Hence f : si{u),z -uh ej, : u' and m = m— for some u' and 
some M. Let s{ai) = Ui. Since z : m h (Mi ,M2) : ^'(Mi x M2) by Lemma [53] (l). we have u' = s(Mi x M2) 
by Lemma [53] (2). Hence u = s{M\ x M2). Therefore / : : s\{u) h /j.l : i'is(Mi). Since 

z:u\-Ni: s{Ni) by Lemma[53](l). we have sis{Mi) = s{Ni) by Lemma[53](2). 

Similarly we have 52^(^/2) = i'(A'^2) for some S2- 

Hence the semiunification problem {Mi < Ni,M2 <N2} has a semiunifier s. 

From the right-hand side to the left-hand side. We suppose {s{Mi ) ) = ^(A'^i ) and S2 {s{M2 ) ) = s{N2 ) . 
Let u be s{a), Ubez'-u, and u be u^s{Mi x M2). 

By LemmaESCI), we have UhMy- s{Mi), [/ hM2 : ^(^2), U h Ni : s{Ni), and [/^h7V2 : s{N2). 

We have / : : si{u) h /y.l : {s{Mi)). Hence U ,f : si{u),y : si{u) h fy.l =Ni -.v for some v. 

Hence U,f : h Xy.{fy.\ =Ni) : si{u)^v. Combining it with U h (Mi,M2) : s{Mi XM2), we have 
: si (u) h ^3 : s{Mi XM2). Hence / : si{u) h Az.es : m. By the (rec) rule, we have hrecj/ = ^2.^3} : u. 

Similarly we have h rec{/ = ^2.^4} : «. Hence we have \- ei = 62 '■ uq for some uq. □ 

Theorem 5.5 The typability in BRNI is undecidable. 

Proof. If it were decidable, by Lemma 15.41 there would be an algorithm solving semiunification 
problems of the form {M\ < N\,M2 < A'^2}- Since semiunification problems of the form {Mi < N\,M2 < 
A'2} are undecidable by Theorem 15. 11 the typability in BRNI is undecidable. □ 

The difference between BR and BRNI comes from the instantiation property. Since the {recni) rule 
does not have S2, the system BRNI does not have the instantiation property like Proposition 13.21 So we 
cannot use the same idea for BRNI since we cannot replace a uppermost {recni) rule by 

— — — r — {axiom) 

s{U) h rec{;t = e\ -.si (v) 

: s{7i2) 

for some ^i. It is because s{U) h recj^; = e} : s\{v) may not be provable for some ^i, even if s{U) h 
rec{;c = : v is provable. 

6 Concluding Remarks 

We have proposed the type system BR with bimorphic recursion. Bimorphic recursion is restricted 
polymorphic recursion such that each recursive call in the body of the function definition has the same 
type, and recursive definitions can be nested. We have proved that this type system has principal types 
and decidable type inference. We have also shown that the extension of bimorphic recursion with the let 
polymorphism also has principal types and decidable type inference. 

Trying to show the decidability of the absti^act interpretation given in [7] will be a future work. We 
have shown that the type inference of bimorphic recursion is decidable, and our bimorphic recursion is 
inspired by HI. By clarifying the relationship among the abstract interpretation, the type system in ||T], 
and our bimorphic recursion, we could show the decidability of the abstract interpretation. 
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Characterizing a class of semi-unification problems that correspond to the type inference for our 
bimorphic recursion will be another future work. We can expect the class will be larger than semi- 
unification problems with a single inequation. The computational complexity of the class would be 
another future work. 
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